home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / TEMPLATE.ZIP / CM_UDF.COD < prev    next >
Text File  |  1994-10-12  |  2KB  |  96 lines
  1. //
  2. // Module name: CM_UDF.COD
  3. // Description: Common user defined functions for all the templates
  4. //
  5. {
  6. define display_type()
  7. //-------------------------------------------------------------------
  8. // DESCRIPTION
  9. //    Find out the display type we are working on
  10. //-------------------------------------------------------------------
  11.   var temp;
  12.   case display of
  13.     mono:   temp = "MONO"
  14.     cga:    temp = "COLOR"
  15.     ega25:  temp = "EGA25"
  16.     mono43: temp = "MONO43"
  17.     ega43:  temp = "EGA43"
  18.     vga25:  temp = "VGA25"
  19.     vga43:  temp = "VGA43"
  20.     vga50:  temp = "VGA50"
  21.   endcase
  22. return temp;
  23. enddef
  24. //-- EOF: display_type()
  25.  
  26.  
  27. define Set_Screen_Mode()
  28. //-------------------------------------------------------------------
  29. // DESCRIPTION
  30. //    Set the screen display mode based on the one that was used
  31. //    for code generation.
  32. // VARIABLES
  33. //    scrn_size = screen size, if >= to 39 need to shift
  34. //-------------------------------------------------------------------
  35.   var d_mode,
  36.       is_form,
  37.       disp_var;
  38.  
  39.   is_form = FRAME_CLASS == form;
  40.   disp_var = ( is_form ? "lc_display" : "gc_display" );
  41.  
  42.   d_mode = display_type();
  43.  
  44.   if at( "50", d_mode ) then
  45. }
  46. SET DISPLAY TO VGA50
  47. {
  48.   else
  49.     if at( "43", d_mode ) then
  50. }
  51. *-- Si no se está ya en modo de 43 líneas, establecerlo basándose en MONO o EGA
  52. IF .NOT. "43" $ {disp_var}
  53.   IF "MONO" $ {disp_var}
  54.     SET DISPLAY TO MONO43
  55.   ELSE
  56.     SET DISPLAY TO EGA43
  57.   ENDIF
  58. ENDIF
  59. {
  60.     endif
  61.   endif
  62.  
  63. return;
  64. enddef
  65. //-- EOF: Set_Screen_Mode()
  66.  
  67.  
  68. define screen_size()
  69. //-------------------------------------------------------------------
  70. // DESCRIPTION
  71. //    Determine the current screen size based on the _flgcolor setting.
  72. //    Assume that the status bar is on.
  73. //
  74. // VARIABLES
  75. //    scrn_size = global variable that indicates the screen size.
  76. //-------------------------------------------------------------------
  77.   display = numset(_flgcolor)
  78.   if display == ega43 || display == mono43 || display == vga43 then
  79.     scrn_size = 39
  80.   else
  81.     if display == vga50 then
  82.       scrn_size = 46
  83.     else
  84.       scrn_size = 21
  85.     endif
  86.   endif
  87.  
  88.   return;
  89. enddef
  90. //-- EOF: screen_size()
  91.  
  92.  
  93. }
  94. //-- EOP: CM_UDF.COD
  95.  
  96.